Subclass

------------------------

- Subclass là một kỹ thuật mạnh.Nó giúp ta làm nhiều thứ mà bình thường VB6 không hổ trợ.Nhưng nếu bạn không biết sử dụng thì sao ? Đừng lo vì control này đã giúp bạn làm tất cả,bạn chỉ việc bẩy nó và làm theo ý mình thôi.

- Trước tiên bạn phải biết các Window Message (WM) cần dùng đã.

- Ví dụ như bạn cần biết khi nào nút scroll giửa của chuột lăn bạn dùng thông điệp WM_MOUSEWHEEL, …

- Những bước cần thiết để sử dụng control này là :

1- Init (Hwnd) , Bạn có thể add 1 lược nhiều hWnd = Call Subclass1.Init(lsbList.hWnd,cmdButton.hWnd,cbCombo.hWnd) Viết vậy chắc bạn hiểu được.

2- Add các WM vào = AddMsg WM_MOUSEWHEEL,...,…,…,… giống như là hàm Init vậy.

3-Sử lý hàm " Subclass1_SubClassStart(bHandled As Boolean, lReturn As Long, hwnd As Long, uMsg As Long, wParam As Long, lParam As Long)"

4- UnSubClass nó để trả lại bộ nhớ.

- Chỉ qua 4 bước đơn giản thì bạn đã Subclass được rồi đó.

Bạn có thể xem Project mẫu để biết cách sử dụng thực tế.